p <-
earnings_by_industry |>
filter(GEO == "Canada", EMPLOYEE_TYPE != "All employees", OVERTIME == "Excluding overtime") |>
group_by(YEAR) |>
slice_max(order_by = ANNUAL_WEEKLY_SALARY, n = 10) |>
ggplot(aes(x = YEAR, y = ANNUAL_WEEKLY_SALARY, colour = NAICS)) +
geom_point() +
geom_line() +
theme(legend.position = "bottom")
ggplotly(p)Annual Weekly Salary by NAICS
Now we look at some data. This only covers measurements from 2001 to 2008.